10 PRINT"[147]":REM REGULA FALSI
20 PRINT" BERECHNUNG VON NULLSTELLEN"
25 PRINT" FUER GANZE RAT. FUNKTIONEN"
30 PRINT"   NACH DER REGULA FALSI"
40 PRINT" **************************"
50 PRINT:INPUT" GRAD DER FUNKTION:";G:PRINT
70 DIMK(G)
80 FORI=GTO0STEP-1
85 PRINT" KOEFFIZIENT FUER X^"I;:INPUTK(I)
90 NEXTI
94 :
95 GOTO150
100 REM   UP  HORNER-SCHEMA
110 Y=K(G)
120 FORI=GTO1STEP-1
130 Y=Y*X+K(I-1)
140 NEXTI
145 RETURN
150 :
160 PRINT:INPUT" NAEHERUNGSWERT X0 ";X0
170 INPUT" NAEHERUNGSWERT X1 ";X1
195 :
200 X=X0:GOSUB100:Y0=Y
220 X=X1:GOSUB100:Y1=Y
225 :
230 IFSGN(Y0)=SGN(Y1)THENPRINT" SEKANTE SCHNEIDET X-ACHSE NICHT":GOTO160
235 :
240 X2=X0-Y0*((X1-X0)/(Y1-Y0))
250 X=X2:GOSUB100:Y2=Y
270 IFABS(Y2)<1E-6THEN290
275 IFSGN(Y2)=SGN(Y1)THENX1=X2:GOTO200
280 IFSGN(Y2)=SGN(Y0)THENX0=X2:GOTO200
290 PRINT:PRINT" NULLSTELLE BEI X="X2
300 PRINT:PRINT" Y-WERT AN DER STELLE="Y2
310 GOTO160